home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / More Examples / Fitting values on ranges < prev    next >
Text File  |  1998-10-26  |  484b  |  27 lines
  1. ; fitting values into range
  2.  
  3. (def-section sect-a
  4.    default
  5.       zone '(1/1 1/1)
  6.       tonality (activate-tonality (major c 4))
  7.       length '((1/16) (1/8))
  8.       symbol '(-b -c -d)
  9.    synth
  10.       velocity (list (gen-cresc 12 45 (fit 1/2 1))
  11.                      (gen-cresc 12 45 (fit 1/2 2)))
  12.       channel 1
  13.    synth2
  14.       velocity (gen-cresc 12 45 (fit 2/1))
  15.       channel 2
  16. )
  17.  
  18. (def-tempo 120)
  19.  
  20. (midiport :printer)
  21.  
  22. (play-file-p "auto-scale"
  23.    synth '(sect-a)
  24.    synth2 same
  25. )
  26.  
  27.